home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / DISKSEARCH.ARC / SRCH DSK 8 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  700 b   |  37 lines
  1. 10 ;SRCH DSK 8
  2. 20 SCREEN LDA #<HDR
  3. 30 STA $FB
  4. 40 LDA #>HDR
  5. 50 STA $FC
  6. 60 LDY #$00
  7. 70 HDRLP LDA ($FB),Y
  8. 80 BEQ HDREND
  9. 90 JSR PRINT
  10. 100 JSR INCFB
  11. 110 JMP HDRLP
  12. 120 HDREND RTS
  13. 130 BEQ HDREND
  14. 140 BRK
  15. 150 INCFB INC $FB
  16. 160 BNE INC1
  17. 170 INC $FC
  18. 180 INC1 RTS
  19. 190 HDR .B 147 158
  20. 200 .B "              [196]ISK [211]EARCH
  21. 210 .B 13 13 159
  22. 220 .B "                   PEEKY
  23. 230 .B 13 13 154
  24. 240 .B "                 [205]L [194]UG
  25. 250 .B 13 13 156
  26. 260 .B "           (LEN) LENOPYRIGHT 1987
  27. 270 .B 13 13 129
  28. 280 .B "           [193]LL [210]IGHTS [210]ESERVED
  29. 290 .B 13 13 153
  30. 300 .B "VALNTER STRING TO SEARCH FOR IN HEX
  31. 310 .B 13 13
  32. 320 .B "[197]XAMPLE 20D2FF
  33. 330 .B 13 13 30
  34. 340 .B "1541 DRIVES ONLY DEVICE # 8
  35. 350 .B 13 13 0
  36. 360 .F SRCH DSK TABLES
  37.